home *** CD-ROM | disk | FTP | other *** search
/ 1,000+ Great Games / 1_1000 Games.iso / DOSGAMES / CSHEARTS.ZIP / REGISTER.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-04-17  |  3.9 KB  |  123 lines
  1. VERSION 2.00
  2. Begin Form Form3 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    ClientHeight    =   4620
  6.    ClientLeft      =   1485
  7.    ClientTop       =   1485
  8.    ClientWidth     =   6375
  9.    ControlBox      =   0   'False
  10.    Height          =   5025
  11.    Left            =   1425
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form3"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   4620
  17.    ScaleWidth      =   6375
  18.    Top             =   1140
  19.    Width           =   6495
  20.    Begin CommandButton Command2 
  21.       Caption         =   "Still not sure I like it."
  22.       Height          =   495
  23.       Left            =   3360
  24.       TabIndex        =   1
  25.       Top             =   3840
  26.       Width           =   2655
  27.    End
  28.    Begin CommandButton Command1 
  29.       Caption         =   "&Print Registration Form"
  30.       Height          =   495
  31.       Left            =   360
  32.       TabIndex        =   0
  33.       Top             =   3840
  34.       Width           =   2655
  35.    End
  36.    Begin Label Label1 
  37.       BorderStyle     =   1  'Fixed Single
  38.       Caption         =   "Label1"
  39.       Height          =   3135
  40.       Left            =   420
  41.       TabIndex        =   2
  42.       Top             =   360
  43.       Width           =   5535
  44.    End
  45. DefInt A-Z
  46. Dim btn#
  47. Sub Command1_Click ()
  48.   MousePointer = 11
  49.   On Error GoTo NoFile
  50.   Close #2: Open CSH_Path$ + "CSH_ORD.FRM" For Input As #2
  51.   On Error GoTo NoPrinter
  52.   Printer.Print ""
  53.   On Error GoTo 0
  54.   Do While Not EOF(2)
  55.     Line Input #2, x$
  56.     Printer.Print x$
  57.   Loop
  58.   Printer.EndDoc
  59.   MsgBox "The order form has been sent to Window's to print."
  60.   MousePointer = 0
  61.   Unload Form3
  62.   Exit Sub
  63. NoFile:
  64.   x$ = "The file CSH_ORD.FRM was not found. It has a complete order form in it. "
  65.   x$ = x$ + "Instead of the complete form, only ordering information will be printed."
  66.   MousePointer = 0
  67.   MsgBox x$
  68.   Printer.Print "To pay for CardShark Hearts, send $25 plus $4 shipping to"
  69.   Printer.Print "Nelson Ford, P.O.Box 35705, Houston, TX 77235  or call 800-242-4775."
  70.   Printer.Print "All major credit cards accepted. Tech support: 713-524-6394."
  71.   Printer.Print "Specify disk size wanted."
  72.   Unload Form3
  73.   Exit Sub
  74. NoPrinter:
  75.   MousePointer = 0
  76.   MsgBox "Printer not ready."
  77.   Exit Sub
  78. End Sub
  79. Sub Command2_Click ()
  80.   f$ = CSH_Path$ + "Hrt2Me9.wav"
  81.   If Dir$(f$) <> "" Then
  82.     Form1.MMControl1.Wait = -1
  83.         Form1.MMControl1.Command = "Close"
  84.         Form1.MMControl1.FileName = f$
  85.         Form1.MMControl1.Command = "Open"
  86.         Form1.MMControl1.Command = "Sound"
  87.   End If
  88.   Unload Form3
  89. End Sub
  90. Sub Form_Load ()
  91. Form3.Left = (Screen.Width - Form3.Width) / 2
  92. Form3.Top = (Screen.Height - Form3.Height) / 2
  93. cr$ = Chr$(13) + Chr$(10)
  94. a$ = "CardShark Hearts is being marketed as shareware." + cr$ + cr$
  95. a$ = a$ + "Any fee that you paid for a disk with this game on it "
  96. a$ = a$ + "or that you paid to download it was for this evaluation "
  97. a$ = a$ + "copy only. No part of that payment went to the author of the program. " + cr$ + cr$
  98. a$ = a$ + "Use of the program beyond a reasonable evaluation "
  99. a$ = a$ + "period requires payment to the author." + cr$ + cr$
  100. b$ = "The purchase price of CardShark Hearts is $25." + cr$
  101. b$ = b$ + "In addition to receiving the latest version, "
  102. b$ = b$ + "you will get the bonus items described in the "
  103. b$ = b$ + "documentation." + cr$ + cr$
  104. b$ = b$ + "To order, call 800-242-4775." + cr$ + "For technical support, call 713-524-6394."
  105. Label1.Caption = a$ + b$
  106. If Rnd > .5 Then
  107.   btn# = Command1.Left
  108.   Command1.Left = Command2.Left
  109.   Command2.Left = btn#
  110. End If
  111. Form3Up = -1
  112. End Sub
  113. Sub Form_Paint ()
  114. Frame Form3, Label1
  115. Frame Form3, Command1
  116. Frame Form3, Command2
  117. 'If btn# > 0 Then
  118. '  PositionCursor Form3.Command2
  119. 'Else
  120.   PositionCursor Form3.Command1
  121. 'End If
  122. End Sub
  123.